object FrmDBTrack: TFrmDBTrack
  Left = 203
  Top = 105
  ActiveControl = DBEdit1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'DBTracker - Database event tracking utility'
  ClientHeight = 269
  ClientWidth = 574
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  TextHeight = 13
  object Label1: TLabel
    Left = 199
    Top = 2
    Width = 57
    Height = 13
    Caption = 'Calc Field'
  end
  object Label2: TLabel
    Left = 338
    Top = 3
    Width = 91
    Height = 13
    Caption = 'Call Method for:'
  end
  object Label3: TLabel
    Left = 11
    Top = 2
    Width = 42
    Height = 13
    Caption = 'CustNo'
  end
  object Label4: TLabel
    Left = 67
    Top = 2
    Width = 52
    Height = 13
    Caption = 'Company'
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 62
    Width = 246
    Height = 181
    TabStop = False
    DataSource = dsDetail
    TabOrder = 5
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
  end
  object DBEdit1: TDBEdit
    Left = 8
    Top = 16
    Width = 50
    Height = 20
    DataSource = dsMaster
    MaxLength = 0
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    Left = 64
    Top = 16
    Width = 135
    Height = 20
    DataSource = dsMaster
    MaxLength = 0
    TabOrder = 1
  end
  object DBNavigator2: TDBNavigator
    Left = 12
    Top = 40
    Width = 241
    Height = 18
    DataSource = dsMaster
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    TabStop = True
  end
  object lstEvent: TListBox
    Left = 336
    Top = 42
    Width = 232
    Height = 222
    TabStop = False
    ItemHeight = 13
    TabOrder = 6
  end
  object btnClear: TBitBtn
    Left = 513
    Top = 15
    Width = 21
    Height = 22
    Hint = 'Empty event list'
    ModalResult = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    TabStop = False
    OnClick = btnClearClick
    Glyph.Data = {
      BE060000424DBE06000000000000360400002800000024000000120000000100
      0800000000008802000000000000000000000000000000000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
      A400000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
      0303030303030303030303030303030303030303030303030303030303030303
      0303F8F80303030303030303030303030303030303FF03030303030303030303
      0303030303F90101F80303030303F9F80303030303030303F8F8FF0303030303
      03FF03030303030303F9010101F8030303F90101F8030303030303F8FF03F8FF
      030303FFF8F8FF030303030303F901010101F803F901010101F80303030303F8
      FF0303F8FF03FFF80303F8FF030303030303F901010101F80101010101F80303
      030303F8FF030303F8FFF803030303F8FF030303030303F90101010101010101
      F803030303030303F8FF030303F803030303FFF80303030303030303F9010101
      010101F8030303030303030303F8FF030303030303FFF8030303030303030303
      030101010101F80303030303030303030303F8FF0303030303F8030303030303
      0303030303F901010101F8030303030303030303030303F8FF030303F8030303
      0303030303030303F90101010101F8030303030303030303030303F803030303
      F8FF030303030303030303F9010101F8010101F803030303030303030303F803
      03030303F8FF0303030303030303F9010101F803F9010101F803030303030303
      03F8030303F8FF0303F8FF03030303030303F90101F8030303F9010101F80303
      03030303F8FF0303F803F8FF0303F8FF03030303030303F9010303030303F901
      0101030303030303F8FFFFF8030303F8FF0303F8FF0303030303030303030303
      030303F901F903030303030303F8F80303030303F8FFFFFFF803030303030303
      03030303030303030303030303030303030303030303030303F8F8F803030303
      0303030303030303030303030303030303030303030303030303030303030303
      0303}
    NumGlyphs = 2
  end
  object DBEdit4: TDBEdit
    Left = 204
    Top = 16
    Width = 52
    Height = 20
    TabStop = False
    DataSource = dsMaster
    MaxLength = 0
    TabOrder = 2
  end
  object DBNavigator1: TDBNavigator
    Left = 12
    Top = 247
    Width = 241
    Height = 18
    DataSource = dsDetail
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    TabStop = True
  end
  object edCount: TEdit
    Left = 540
    Top = 16
    Width = 26
    Height = 20
    TabStop = False
    Color = clBtnFace
    ParentShowHint = False
    ReadOnly = True
    ShowHint = False
    TabOrder = 8
    Text = '0'
  end
  object cboTables: TComboBox
    Left = 336
    Top = 16
    Width = 101
    Height = 20
    TabStop = False
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 9
    OnChange = cboTablesChange
  end
  object GroupBox1: TGroupBox
    Left = 260
    Top = 33
    Width = 72
    Height = 231
    Caption = 'Methods'
    TabOrder = 10
    object btnInsert: TBitBtn
      Left = 9
      Top = 22
      Width = 56
      Height = 21
      Hint = 'Call TTable.Insert'
      Caption = '&Insert'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TabStop = False
      OnClick = btnInsertClick
    end
    object btnDelete: TBitBtn
      Left = 9
      Top = 49
      Width = 56
      Height = 21
      Hint = 'Call TTable.Delete'
      Caption = '&Delete'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TabStop = False
      OnClick = btnDeleteClick
    end
    object btnEdit: TBitBtn
      Left = 9
      Top = 76
      Width = 56
      Height = 22
      Hint = 'Call TTable.Edit'
      Caption = '&Edit'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      TabStop = False
      OnClick = btnEditClick
    end
    object btnPost: TBitBtn
      Left = 9
      Top = 111
      Width = 56
      Height = 21
      Hint = 'Call TTable.Post'
      Caption = '&Post'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      TabStop = False
      OnClick = btnPostClick
    end
    object btnCancel: TBitBtn
      Left = 9
      Top = 138
      Width = 56
      Height = 21
      Hint = 'Call TTable.Cancel'
      Caption = '&Cancel'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      TabStop = False
      OnClick = btnCancelClick
    end
    object btnOpen: TBitBtn
      Left = 9
      Top = 175
      Width = 56
      Height = 21
      Hint = 'Call TTable.Open'
      Caption = '&Open'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      TabStop = False
      OnClick = btnOpenClick
    end
    object btnClose: TBitBtn
      Left = 9
      Top = 201
      Width = 56
      Height = 21
      Hint = 'Call TTable.Close'
      Caption = 'C&lose'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      TabStop = False
      OnClick = btnCloseClick
    end
  end
  object btnSaveList: TBitBtn
    Left = 444
    Top = 15
    Width = 64
    Height = 22
    Hint = 'Save the event list to a file'
    Caption = '&Save List'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    TabStop = False
    OnClick = SaveEventList
  end
  object dsMaster: TDataSource
    DataSet = tblMaster
    OnStateChange = TrackStateChange
    OnDataChange = TrackDataChange
    OnUpdateData = TrackUpdateData
    Left = 468
    Top = 65520
  end
  object tblMaster: TTable
    BeforeOpen = TrackBeforeOpen
    AfterOpen = TrackAfterOpen
    BeforeClose = TrackBeforeClose
    AfterClose = TrackAfterClose
    BeforeInsert = TrackBeforeInsert
    AfterInsert = TrackAfterInsert
    BeforeEdit = TrackBeforeEdit
    AfterEdit = TrackAfterEdit
    BeforePost = TrackBeforePost
    AfterPost = TrackAfterPost
    BeforeCancel = TrackBeforeCancel
    AfterCancel = TrackAfterCancel
    BeforeDelete = TrackBeforeDelete
    AfterDelete = TrackAfterDelete
    OnNewRecord = TrackNewRec
    OnCalcFields = TrackOnCalc
    DatabaseName = 'DBDEMOS'
    TableName = 'CUSTOMER.DB'
    Left = 440
    Top = 65520
    object tblMasterCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object tblMasterCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object tblMasterMyCalcField: TIntegerField
      Calculated = True
      FieldName = 'MyCalcField'
    end
  end
  object dsDetail: TDataSource
    DataSet = tblDetail
    OnStateChange = TrackStateChange
    OnDataChange = TrackDataChange
    OnUpdateData = TrackUpdateData
    Left = 536
    Top = 65520
  end
  object tblDetail: TTable
    BeforeOpen = TrackBeforeOpen
    AfterOpen = TrackAfterOpen
    BeforeClose = TrackBeforeClose
    AfterClose = TrackAfterClose
    BeforeInsert = TrackBeforeInsert
    AfterInsert = TrackAfterInsert
    BeforeEdit = TrackBeforeEdit
    AfterEdit = TrackAfterEdit
    BeforePost = TrackBeforePost
    AfterPost = TrackAfterPost
    BeforeCancel = TrackBeforeCancel
    AfterCancel = TrackAfterCancel
    BeforeDelete = TrackBeforeDelete
    AfterDelete = TrackAfterDelete
    OnNewRecord = TrackNewRec
    OnCalcFields = TrackOnCalc
    DatabaseName = 'DBDEMOS'
    IndexName = 'ByCustNo'
    MasterFields = 'CustNo'
    MasterSource = dsMaster
    TableName = 'ORDERS.DB'
    Left = 504
    Top = 65520
  end
  object dlgSaveAs: TSaveDialog
    DefaultExt = 'log'
    Filter = 'Event log files (*.LOG)|*.LOG'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofShowHelp]
    Left = 276
    Top = 65520
  end
end